應用統計 R 程式 期末報告

# Google Trends 搜尋熱度的趨勢變化
library(gtrendsR)

# 查詢關鍵字
keyword = c("繳稅", "航運", "比特")

# 查詢國家
geo = "TW"

# 查詢範圍：web, news, images, froogle, youtube
gprop = "news"

# 查詢時間
start_date = "2021-01-01"
end_date = "2021-06-18"
time = paste(start_date, end_date)

# 只回傳時間序列資料
onlyInterest = FALSE

# 開始查詢
trends = gtrendsR::gtrends(keyword=keyword, 
                           geo=geo, 
                           gprop=gprop,
                           time=time,
                           onlyInterest=onlyInterest)

# 查詢結果
interest_over_time = trends$interest_over_time

# 調整資料格式
interest_over_time$hits[interest_over_time$hits == "<1"] = 0
interest_over_time$hits = as.numeric(interest_over_time$hits)

# 繪製折線圖
library(dygraphs)
library(xts)
data = data.frame(time=interest_over_time$date, 
                  hits=interest_over_time$hits,
                  keyword=interest_over_time$keyword)

data_df = reshape2::dcast(data, time ~ keyword, value.var="hits")
data_xts = xts(x=data_df, order.by=data_df$time)
data_xts$time = NULL
fig_dygraph = dygraphs::dygraph(data_xts) %>% 
  dySeries(keyword[1], color="blue") %>% 
  dySeries(keyword[2], color="red") %>% 
  dySeries(keyword[3], color="green") %>% 
  dyRangeSelector(height=20)
fig_dygraph

# 統整查詢結果
data_df = reshape2::dcast(interest_over_time, 
                          date ~ keyword,
                          value.var="hits")

# 繪製好看表格
DT::datatable(data_df)

# 繪製股價圖
library(plotly)
library(quantmod)

# 包裝成函式，方便使用
candlestick = function(ticker, start = "2021-01-01", 
                       end = Sys.Date()){
  # 讀取股價資料
  Asset = getSymbols(ticker, from=start, to=end, auto.assign=FALSE)
  df = data.frame(Date=index(Asset), coredata(Asset))

  # 畫圖
  fig = df %>%
    plot_ly(x=~Date, 
            type="candlestick",
            open=~df[,2], 
            close=~df[,5],
            high=~df[,3], 
            low=~df[,4]) %>% 
    layout(title= paste("Candlestick Chart", ticker))
  fig
  }

candlestick(ticker = "2603.TW")